home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / AddDict.xdme next >
Text File  |  1995-08-01  |  255b  |  7 lines
  1. /* $VER: AddDict.xdme 1.0 (01 Aug 1995) */
  2.  
  3. D = rtfilerequest(GetEnv("DDIR"), , "Select Dictionary", "Add", "rtfi_matchpat=#?.(low|mix) rtfi_flags=freqf_patgad")
  4. D = DELSTR(D, 1, MAX(LASTPOS(":", D), LASTPOS("/", D)))
  5. xcom = "addnode dct tail" D "0"
  6. xcom
  7.